home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / casterli.arc / SCRNMOVE.4TH < prev    next >
Text File  |  1986-04-26  |  640b  |  21 lines
  1. ( Screen Moving Words - Screen 1 )
  2.  
  3. : COPY-SCREEN ( FROM TO --- ) B/SCR * SWAP B/SCR * B/SCR 0
  4.   DO  OVER I + OVER I + BLOCK 2 - ! UPDATE LOOP 2DROP ;
  5.  
  6. : MOVE-SCREENS  ( FROM TO NUMBER --- ) >R 2DUP > IF R> 0 DO
  7.   OVER I + OVER I + COPY-SCREEN LOOP  ELSE -1 R> 1 - DO
  8.   OVER I + OVER I + COPY-SCREEN -1 +LOOP THEN 2DROP ;
  9.  
  10. : FILL-SCREENS ( FROM TO --- ) SWAP DO I DUP 1+ 1 MOVE-SCREENS
  11.   2DROP FLUSH LOOP ;
  12.   ( Fills all screens from FROM to TO with contents of FROM )
  13.  
  14.  
  15.  
  16.                                                              -->
  17. s all screens from FROM to TO with contents of FROM )
  18.  
  19.  
  20.  
  21.